UC知道关于VB中"缺少函数或变量"的问题
来源：百度知道 编辑：UC知道 时间：2024/05/24 09:32:55
子程序如下:
Private Sub Command1_Click(Index As Integer)
'用户输入时
'使得输入过的按钮无效
If Num <= 4 Then
Command1(Index).Enabled = False
End If
'判断用户输入了几位，如果输入了四位则确认按钮有效
If Num = 4 Then
Command2.Enabled = True
End If
'取得用户输入
Select Case Index
Case0 UserEnter(0) '调用UserEnter过程
Case1 UserEnter(1)
Case2 UserEnter(2)
Case3 UserEnter(3)
Case4 UserEnter(4)
Case5 UserEnter(5)
Case6 UserEnter(6)
Case7 UserEnter(7)
Case8 UserEnter(8)
Case9 UserEnter(9)
Print UserEnter
End Select
End Sub
就是将用户点中的按纽上的数字(0~9)显示在text box里
提示是"缺少函数或变量"
高手帮忙解答下,谢谢!
Private Sub Command1_Click(Index As Integer)
'用户输入时
'使得输入过的按钮无效
If Num <= 4 Then
Command1(Index).Enabled = False
End If
'判断用户输入了几位，如果输入了四位则确认按钮有效
If Num = 4 Then
Command2.Enabled = True
End If
'取得用户输入
Select Case Index
Case0 UserEnter(0) '调用UserEnter过程
Case1 UserEnter(1)
Case2 UserEnter(2)
Case3 UserEnter(3)
Case4 UserEnter(4)
Case5 UserEnter(5)
Case6 UserEnter(6)
Case7 UserEnter(7)
Case8 UserEnter(8)
Case9 UserEnter(9)
Print UserEnter
End Select
End Sub
就是将用户点中的按纽上的数字(0~9)显示在text box里
提示是"缺少函数或变量"
高手帮忙解答下,谢谢!
Private Function UserEnter(Optional n As Long = -1)
Static temp As Long
If n <> -1 Then
temp = n
text1.Text = n
End If
UserEnter = n
End Function
Print UserEnter是什么代码?
函数吗?也没有传入参数.估计这里错误了.